Public Class EmailWeb
    Dim ADEmaWeb As New ADCono.EmailWeb

    Public Function EmailWebGenerar(ByVal CodRS As Integer, ByVal EmaWeb As String, Optional ByVal Obs As String = "")
        Dim DS As New DataSet
        DS = ADEmaWeb.GenerarEmailWeb(CodRS, EmaWeb, Obs)
        Return DS
    End Function
End Class
